home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
graphic
/
1svga.zip
/
WIN_TEXT.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1994-04-18
|
2KB
|
56 lines
uses Txt;
{ ─────────────── TextWin1 ─────────────── }
procedure TextWin1(X,Y,LenX,LenY,CBox:integer);
var I:integer;
begin
PrintText(X,Y,CBox,'╧');
TextBar(X+1,Y,LenX-2,1,CBox,'╞');
PrintText(X+LenX-1,Y,CBox,'╨');
TextBar(X,Y+1,1,LenY-2,CBox,'╫');
TextBar(X+LenX-1,Y+1,1,LenY-2,CBox,'╪');
PrintText(X,Y+LenY-1,CBox,'╤');
TextBar(X+1,Y+LenY-1,LenX-2,1,CBox,'╟');
PrintText(X+LenX-1,Y+LenY-1,CBox,'╥');
TextBar(X+1,Y+1,LenX-2,LenY-2,CBox,' ');
TextShadow(X,Y,LenX,LenY);
end;
{ ─────────────── TextWin2 ─────────────── }
procedure TextWin2(X,Y,LenX,LenY,CBox,CTitle:integer;Title:string);
var I:integer;
begin
TextBar(X,Y,LenX,1,CTitle,' ');
PrintText(X+(LenX-Length(Title)) shr 1,Y,CTitle,Title);
TextBar(X,Y+1,1,LenY-2,CBox,'╫');
TextBar(X+LenX-1,Y+1,1,LenY-2,CBox,'╪');
PrintText(X,Y+LenY-1,CBox,'╤');
TextBar(X+1,Y+LenY-1,LenX-2,1,CBox,'╟');
PrintText(X+LenX-1,Y+LenY-1,CBox,'╥');
TextBar(X+1,Y+1,LenX-2,LenY-2,CBox,' ');
TextShadow(X,Y,LenX,LenY);
for I:=0 to 1 do begin
PrintText(X+I,Y,CBox,Chr(193+I));
PrintText(X+I+LenX-2,Y,CBox,Chr(202+I));
end;
end;
var Font_R:array[0..4095] of byte;
I:integer;
begin
FileRead('0916sys.fnt',0,256,16,Font_R);
SetTextFont(16,0,256,Font_R);
SetFlash(0);
TextBar(1, 1,80, 1,$3E,' ');
TextBar(1, 2,80,23,$17,' ');
TextBar(1,25,80, 1,$3E,' ');
PrintChar(4, 1,'Show some Text Windows');
PrintChar(4,25,'Press any key...');
for I:=0 to 6 do
TextWin2(4+6*I,3+2*I,30,8,16*(I+1)+I+9,16*(I+9),'Text Window');
TextWin1( 4,16,30,8,$9B);
TextWin1(46, 3,30,8,$CF);
TextWindow1( 6,11,20,8,$CE,$C0,2,' Window ');
TextWindow2(12,13,20,8,$9F,$F0,' Window ');
Readln;
end.